home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / rexx / examples / FAreaList.br < prev    next >
Encoding:
Text File  |  1996-11-11  |  540 b   |  37 lines
  1. /* FAreaList.br 
  2.  * 
  3.  * Get file area list for a bbs.
  4.  */
  5.  
  6.     parse arg argument
  7.  
  8.     if(argument = '') then
  9.     do
  10.         say '$VER: FAreaList.br V3.1 (10.08.94)'
  11.         say 'Template: BBSNAME/A'
  12.         exit
  13.     end
  14.  
  15.     if ~show('p', 'BBSREAD') then do
  16.         address command
  17.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  18.             "WaitForPort BBSREAD"
  19.     end
  20.     
  21.     address BBSREAD
  22.  
  23.     GETFAREALIST stem FAREALIST argument 
  24.     if(rc ~= 0) then 
  25.     do
  26.         say BBSREAD.LASTERROR
  27.         exit
  28.     end
  29.  
  30.     say 'Available file areas:'
  31.  
  32.     do i=1 to FAREALIST.COUNT
  33.         say ' ' || FAREALIST.i
  34.     end
  35.  
  36.     exit
  37.